home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / JS.ZIP;1 / CASE.JS < prev    next >
Encoding:
Text File  |  1992-12-31  |  732 b   |  30 lines
  1.    NB.  This file can be used as a script input file to J Version 6.1
  2.    NB.  December 1992
  3.    
  4.    NB.  Donald B. McIntyre
  5.    NB.  Luachmhor, 1 Church Road
  6.    NB.  KINFAUNS, PERTH PH2 7LD
  7.    NB.  SCOTLAND - U.K.
  8.    NB.  Telephone:  In the UK:      0738-86-726
  9.    NB.  From USA and Canada:   011-1-738-86-726
  10.    NB.  email:  donald.mcintyre@almac.co.uk
  11.  
  12. NB. Tutor Version 4, p.9-12; Dictionary Version 4, p. 8,15
  13.       n=. (1&o.@}.) ` (^.@}.) ` (^@}.)
  14.       f=. n @. {.
  15.  
  16.       ]z=.f 0 0.5
  17.       $z
  18.       (,1 o. 0.5) -:  f 0 0.5
  19.  
  20.       (,^. 0.5) -:    f 1 0.5
  21.  
  22.       (,^ 0.5) -:     f 2 0.5
  23.  
  24.       n=. 1: `(* $: @ <:)
  25.       f=. n@. *"0
  26.       *"0 i.6
  27.       (! @ i.6) -: f i.6
  28.  
  29.        1:`(*$:@<:)@.*"0 i.6
  30.